home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / classes.pso < prev    next >
Encoding:
Text File  |  1992-02-17  |  2.6 KB  |  64 lines
  1. ; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SCHEME-TRANSLATOR; -*-
  2.  
  3. ; This file was generated by Pseudoscheme 2.8a
  4. ;  running in Lucid Common Lisp 4.0.1
  5. ;  from file /amd/night/b/jar/pseudo/classes.scm
  6.  
  7. (SCHI:BEGIN-TRANSLATED-FILE)
  8. (LOCALLY (DECLARE (SPECIAL CLASS/LITERAL))
  9.          (SETQ CLASS/LITERAL 0))
  10. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/LITERAL
  11.                               'SCHEME::CLASS/LITERAL)
  12. (LOCALLY (DECLARE (SPECIAL CLASS/NAME))
  13.          (SETQ CLASS/NAME 1))
  14. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/NAME
  15.                               'SCHEME::CLASS/NAME)
  16. (LOCALLY (DECLARE (SPECIAL CLASS/APPLICATION))
  17.          (SETQ CLASS/APPLICATION 2))
  18. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/APPLICATION
  19.                               'SCHEME::CLASS/APPLICATION)
  20. (LOCALLY (DECLARE (SPECIAL CLASS/LAMBDA))
  21.          (SETQ CLASS/LAMBDA 3))
  22. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/LAMBDA
  23.                               'SCHEME::CLASS/LAMBDA)
  24. (LOCALLY (DECLARE (SPECIAL CLASS/LETREC))
  25.          (SETQ CLASS/LETREC 4))
  26. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/LETREC
  27.                               'SCHEME::CLASS/LETREC)
  28. (LOCALLY (DECLARE (SPECIAL CLASS/IF))
  29.          (SETQ CLASS/IF 5))
  30. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/IF
  31.                               'SCHEME::CLASS/IF)
  32. (LOCALLY (DECLARE (SPECIAL CLASS/QUOTE))
  33.          (SETQ CLASS/QUOTE 6))
  34. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/QUOTE
  35.                               'SCHEME::CLASS/QUOTE)
  36. (LOCALLY (DECLARE (SPECIAL CLASS/BEGIN))
  37.          (SETQ CLASS/BEGIN 7))
  38. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/BEGIN
  39.                               'SCHEME::CLASS/BEGIN)
  40. (LOCALLY (DECLARE (SPECIAL CLASS/SET!))
  41.          (SETQ CLASS/SET! 8))
  42. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/SET!
  43.                               'SCHEME::CLASS/SET!)
  44. (LOCALLY (DECLARE (SPECIAL CLASS/LET-SYNTAX))
  45.          (SETQ CLASS/LET-SYNTAX 9))
  46. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/LET-SYNTAX
  47.                               'SCHEME::CLASS/LET-SYNTAX)
  48. (LOCALLY (DECLARE (SPECIAL CLASS/LETREC-SYNTAX))
  49.          (SETQ CLASS/LETREC-SYNTAX 10))
  50. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/LETREC-SYNTAX
  51.                               'SCHEME::CLASS/LETREC-SYNTAX)
  52. (LOCALLY (DECLARE (SPECIAL CLASS/DEFINE))
  53.          (SETQ CLASS/DEFINE 11))
  54. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/DEFINE
  55.                               'SCHEME::CLASS/DEFINE)
  56. (LOCALLY (DECLARE (SPECIAL CLASS/DEFINE-SYNTAX))
  57.          (SETQ CLASS/DEFINE-SYNTAX 12))
  58. (SCHI:SET-FUNCTION-FROM-VALUE 'CLASS/DEFINE-SYNTAX
  59.                               'SCHEME::CLASS/DEFINE-SYNTAX)
  60. (LOCALLY (DECLARE (SPECIAL NUMBER-OF-CLASSES))
  61.          (SETQ NUMBER-OF-CLASSES 13))
  62. (SCHI:SET-FUNCTION-FROM-VALUE 'NUMBER-OF-CLASSES
  63.                               'SCHEME::NUMBER-OF-CLASSES)
  64.